Chip 1998 September/CHIP Eylül 1998.iso/demolar/lokman/DISK1/_SETUP.3/Group1/istatist.exe/0/RCDATA/TFORMKRMGRF/TFORMKRMGRF.txt

Text File | 1998-07-13 | 47KB | 1,728 lines

object FormKrmGrf: TFormKrmGrf
  Left = 0
  Top = 1
  Width = 642
  Height = 454
  HorzScrollBar.Range = 1200
  VertScrollBar.Range = 2000
  AutoScroll = False
  Caption = 'Kurum Re�etelerine �li�kin Bilgiler ve Grafikleri'
  Color = clSilver
  Font.Color = clBlack
  Font.Height = -11
  Font.Name = 'Arial'
  Font.Style = [fsBold]
  Scaled = False
  OnClose = FormClose
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 14
  object LabelTAR: TLabel
    Left = 0
    Top = -1
    Width = 113
    Height = 14
    Caption = 'Re�. Aln.Tarih Aral���'
  end
  object QRLabel26: TQRLabel
    Left = 200
    Top = 1323
    Width = 122
    Height = 14
    Caption = 'Toplam Kurum Say�s� :'
    AlignToBand = False
  end
  object QRDBText25: TQRDBText
    Left = 321
    Top = 1323
    Width = 127
    Height = 17
    Alignment = taRightJustify
    AlignToBand = False
    DataSource = DataSTop
    DataField = 'KRMSAY'
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'Arial'
    Font.Style = []
    ParentFont = False
  end
  object RadioGrSIR: TRadioGroup
    Left = 127
    Top = -1
    Width = 383
    Height = 37
    Caption = 'Kurum S�ralama Kriteri: En B�y�k'
    Columns = 2
    ItemIndex = 0
    Items.Strings = (
      'Miktarda �la� Alandan �tibaren'
      'Tutarda �la� Alandan �tibaren')
    TabOrder = 1
  end
  object BtnAC: TBitBtn
    Left = 539
    Top = 8
    Width = 72
    Height = 25
    Caption = '&Tabloyu A�'
    Font.Color = clRed
    Font.Height = -11
    Font.Name = 'Arial'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 2
    OnClick = BtnACClick
  end
  object MaskEditSON: TMaskEdit
    Left = 62
    Top = 12
    Width = 63
    Height = 22
    AutoSelect = False
    EditMask = '99/99/9999;1;_'
    MaxLength = 10
    TabOrder = 3
    Text = '01.01.1998'
    OnExit = MaskEditBASExit
  end
  object MaskEditBAS: TMaskEdit
    Left = 0
    Top = 12
    Width = 61
    Height = 22
    AutoSelect = False
    EditMask = '99/99/9999;1;_'
    MaxLength = 10
    TabOrder = 4
    Text = '01.01.1997'
    OnExit = MaskEditBASExit
  end
  object PanelGRAF: TPanel
    Left = -2
    Top = 415
    Width = 699
    Height = 844
    BevelInner = bvLowered
    BorderWidth = 3
    Color = clNavy
    TabOrder = 0
    object ScrollBox1: TScrollBox
      Left = 5
      Top = 5
      Width = 689
      Height = 834
      Align = alClient
      Color = clGray
      ParentColor = False
      TabOrder = 0
      object Label2: TLabel
        Left = 569
        Top = 197
        Width = 65
        Height = 32
        Caption = 'Dosyan�n�n .Txt Ad�'
        Font.Color = clWhite
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = [fsBold]
        ParentFont = False
        WordWrap = True
      end
      object Chart1: TChartFX
        Left = 0
        Top = -1
        Width = 568
        Height = 409
        TabOrder = 0
        ControlData = {
          B43A0000452A00006000000001000102FDB303FFFFFFFF380032002800280002
          00000000000000080001000000000000000000000000000000000000FFFF00C0
          C0C000C0C0C000FFFFFF00FF1FFF1F0000000000010000000000000F001E0000
          00FFFFFF000000FF00FF000000FF00FF00FFFF000000FFFF00FF00800000FF80
          0080FF00008000FF00FFFF800080FFFF00808040008040800040808000FFFF00
          00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF
          00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF0008000020080000
          6008000000080000000800000008000000080000000800000008000000000000
          00000000000000000000000000000000000000000000000000000000004C0000
          00000054008A10000080685B00AC2A02068464370200006500289C5502B02159
          00B8FF3A0264D70D02C8015800247E270200000000449EF1017470B805A09CF8
          04205E5D0070225A00D891570050000000000054000000000000000000D4FC63
          006E7374732E706173EC41EE0272642E7090CF2302E8D2FB01A40158007C0000
          000C4C5900287327020000000034161A0200000000FCCB14020000000068D4BF
          052C000000000054008A100000C08C5700ECEE5800F82F580000000070220000
          00287D5700BCEE5800C00F5800002F5A0028000000000054009A100000744259
          00000000000000000084845700349142029833130272756D2E1C043002000000
          000000F03F000000000000F03F02000400000000000000000000000000000024
          400000000000000000000000000000000000000000000000}
      end
      object BtnYUK: TBitBtn
        Left = 571
        Top = 29
        Width = 41
        Height = 45
        Caption = 'Y&ukar�'
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = []
        ParentFont = False
        TabOrder = 1
        OnClick = BtnYUKClick
        Glyph.Data = {
          78010000424D7801000000000000760000002800000020000000100000000100
          04000000000000000000120B0000120B00000000000000000000000000000000
          800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF003C3333339333
          337437FFF3337F3333F73CCC33339333344437773F337F33377733CCC3339337
          4447337F73FF7F3F337F33CCCCC3934444433373F7737F773373333CCCCC9444
          44733337F337773337F3333CCCCC9444443333373F337F3337333333CCCC9444
          473333337F337F337F333333CCCC94444333333373F37F33733333333CCC9444
          7333333337F37F37F33333333CCC944433333333373F7F373333333333CC9447
          33333333337F7F7F3333333333CC94433333333333737F7333333333333C9473
          33333333333737F333333333333C943333333333333737333333333333339733
          3333333333337F333333333333339333333333333333733333330000}
        Layout = blGlyphTop
        NumGlyphs = 2
      end
      object BtnYAZ: TBitBtn
        Left = 571
        Top = 140
        Width = 41
        Height = 45
        Caption = '&Yaz�c�'
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = []
        ParentFont = False
        TabOrder = 2
        OnClick = BtnYAZClick
        Glyph.Data = {
          76010000424D7601000000000000760000002800000020000000100000000100
          04000000000000010000130B0000130B00000000000000000000000000000000
          800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00300000000000
          00033FFFFFFFFFFFFFFF0888888888888880777777777777777F088888888888
          8880777777777777777F0000000000000000FFFFFFFFFFFFFFFF0F8F8F8F8F8F
          8F80777777777777777F08F8F8F8F8F8F9F0777777777777777F0F8F8F8F8F8F
          8F807777777777777F7F0000000000000000777777777777777F3330FFFFFFFF
          03333337F3FFFF3F7F333330F0000F0F03333337F77773737F333330FFFFFFFF
          03333337F3FF3FFF7F333330F00F000003333337F773777773333330FFFF0FF0
          33333337F3FF7F3733333330F08F0F0333333337F7737F7333333330FFFF0033
          33333337FFFF7733333333300000033333333337777773333333}
        Layout = blGlyphBottom
        NumGlyphs = 2
      end
      object BtnASAGI: TBitBtn
        Left = 571
        Top = 85
        Width = 41
        Height = 45
        Caption = '&A�a��'
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = []
        ParentFont = False
        TabOrder = 3
        OnClick = BtnASAGIClick
        Glyph.Data = {
          78010000424D7801000000000000760000002800000020000000100000000100
          04000000000000000000120B0000120B00000000000000000000000000000000
          800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333393333
          333333333337F3333333333333397333333333333337FF333333333333C94333
          3333333333737F333333333333C9473333333333337373F3333333333CC94433
          3333333337F7F7F3333333333CC94473333333333737F73F33333333CCC94443
          333333337F37F37F33333333CCC94447333333337337F373F333333CCCC94444
          33333337F337F337F333333CCCC94444733333373337F3373F3333CCCCC94444
          4333337F3337FF337F3333CCCCC94444473333733F7773FF73F33CCCCC393444
          443337F37737F773F7F33CCC33393374447337F73337F33737FFCCC333393333
          444377733337F333777FC33333393333374373333337333333730000}
        Layout = blGlyphBottom
        NumGlyphs = 2
      end
      object ChartMik: TChartFX
        Left = 0
        Top = 410
        Width = 568
        Height = 409
        TabOrder = 4
        ControlData = {
          B43A0000452A00006000000001000102FDB303FFFFFFFF380032002800280002
          00000000000000080001000000000000000000000000000000000000FFFF00C0
          C0C000C0C0C000FFFFFF00FF1FFF1F0000000000010000000000000F001E0000
          00FFFFFF000000FF00FF000000FF00FF00FFFF000000FFFF00FF00800000FF80
          0080FF00008000FF00FFFF800080FFFF00808040008040800040808000FFFF00
          00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF
          00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF0008000020080000
          6008000000080000000800000008000000080000000800000008000000000000
          00000000000000000000000000000000000000000000000000000000004C0000
          00000054008A10000080685B00AC2A02060000000000000000C0125800247E24
          023455590000000000C8015800247E2702696C6D652C146802B4F46300000000
          0008AAB7050000000014EB580034000000000054000000000000000000D4FC63
          006E7374732E706173EC41EE0210FE3702000000000000000000185B0034BA59
          0074EFED0130000000000054008A100000C08C5700843D5A006C2A5D00610000
          00E8621E026C1E4F0200000000887A2302BC245800003CE70138000000000054
          009A1000007442590074572D02000000008056590000005700E8235800020033
          00000010001CAC2402100000000000000034415900000000000000F03F000000
          000000F03F020004000000000000000000000000000000244000000000000000
          00000000000000000000000000000000}
      end
      object BtnTXT: TBitBtn
        Left = 571
        Top = 266
        Width = 41
        Height = 45
        Caption = '.txt Ya&z'
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = []
        ParentFont = False
        TabOrder = 5
        OnClick = BtnTXTClick
        Glyph.Data = {
          78010000424D7801000000000000760000002800000020000000100000000100
          04000000000000000000120B0000120B00000000000000000000000000000000
          800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
          33333FFFFFFFFFFFFFFF000000000000000077777777777777770FFFFFFFFFFF
          FFF07F3FF3FF3FF3FFF70F00F00F00F000F07F773773773777370FFFFFFFFFFF
          FFF07F3FF3FF3FF3FFF70F00F00F00F000F07F773773773777370FFFFFFFFFFF
          FFF07F3FF3FF3FF3FFF70F00F00F00F000F07F773773773777370FFFFFFFFFFF
          FFF07F3FF3FF3FF3FFF70F00F00F00F000F07F773773773777370FFFFFFFFFFF
          FFF07FFFFFFFFFFFFFF70CCCCCCCCCCCCCC07777777777777777088CCCCCCCCC
          C8807FF7777777777FF700000000000000007777777777777777333333333333
          33333333333333333333333333333333333333333333333333330000}
        Layout = blGlyphBottom
        NumGlyphs = 2
      end
      object EditFile: TEdit
        Left = 568
        Top = 233
        Width = 73
        Height = 22
        TabOrder = 6
        Text = 'istkrm.txt'
      end
      object BitBtn1: TBitBtn
        Left = 570
        Top = 461
        Width = 41
        Height = 45
        Caption = 'Yukar&�'
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = []
        ParentFont = False
        TabOrder = 7
        OnClick = BitBtn1Click
        Glyph.Data = {
          78010000424D7801000000000000760000002800000020000000100000000100
          04000000000000000000120B0000120B00000000000000000000000000000000
          800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF003C3333339333
          337437FFF3337F3333F73CCC33339333344437773F337F33377733CCC3339337
          4447337F73FF7F3F337F33CCCCC3934444433373F7737F773373333CCCCC9444
          44733337F337773337F3333CCCCC9444443333373F337F3337333333CCCC9444
          473333337F337F337F333333CCCC94444333333373F37F33733333333CCC9444
          7333333337F37F37F33333333CCC944433333333373F7F373333333333CC9447
          33333333337F7F7F3333333333CC94433333333333737F7333333333333C9473
          33333333333737F333333333333C943333333333333737333333333333339733
          3333333333337F333333333333339333333333333333733333330000}
        Layout = blGlyphTop
        NumGlyphs = 2
      end
    end
  end
  object Panel1: TPanel
    Left = 8
    Top = 1296
    Width = 721
    Height = 361
    BevelInner = bvLowered
    BorderWidth = 4
    Caption = 'Panel1'
    Color = 8454143
    TabOrder = 5
    object QRBand1: TQRBand
      Left = 6
      Top = 6
      Width = 709
      Height = 35
      Align = alTop
      BandType = rbTitle
      Color = clWhite
      ForceNewPage = False
      Frame.DrawTop = False
      Frame.DrawBottom = False
      Frame.DrawLeft = False
      Frame.DrawRight = False
      Ruler = qrrCmHV
      object QRLabelBaslik: TQRLabel
        Left = 224
        Top = 14
        Width = 83
        Height = 15
        Alignment = taCenter
        Caption = 'QRLabelBaslik'
        AlignToBand = True
        Font.Color = clBlack
        Font.Height = -12
        Font.Name = 'Arial'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object QRSysData2: TQRSysData
        Left = 601
        Top = 0
        Width = 89
        Height = 17
        AlignToBand = False
        Data = qrsPageNumber
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = []
        ParentFont = False
        Text = 'Sayfa '
      end
    end
    object QRBand2: TQRBand
      Left = 6
      Top = 41
      Width = 709
      Height = 42
      Align = alTop
      BandType = rbDetail
      Color = clWhite
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = []
      ForceNewPage = False
      Frame.DrawTop = False
      Frame.DrawBottom = False
      Frame.DrawLeft = False
      Frame.DrawRight = False
      ParentFont = False
      Ruler = qrrCmH
      object QRShape1: TQRShape
        Left = 2
        Top = 2
        width = 703
        Height = 37
        Shape = qrsRectangle
      end
      object QRShape7: TQRShape
        Left = 649
        Top = 2
        width = 4
        Height = 37
        Shape = qrsVertLine
      end
      object QRLabel1: TQRLabel
        Left = 585
        Top = 3
        Width = 53
        Height = 14
        Caption = 'Hst.Adedi'
        AlignToBand = False
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object QRShape5: TQRShape
        Left = 515
        Top = 2
        width = 62
        Height = 37
        Shape = qrsRectangle
      end
      object QRShape4: TQRShape
        Left = 326
        Top = 2
        width = 129
        Height = 37
        Shape = qrsRectangle
      end
      object QRShape3: TQRShape
        Left = 39
        Top = 2
        width = 212
        Height = 37
        Shape = qrsRectangle
      end
      object QRDBText1: TQRDBText
        Left = 4
        Top = 21
        Width = 32
        Height = 17
        Alignment = taRightJustify
        AlignToBand = False
        DataSource = DataSource1
        DataField = 'SNO'
      end
      object QRDBText3: TQRDBText
        Left = 267
        Top = 21
        Width = 48
        Height = 17
        Alignment = taRightJustify
        AlignToBand = False
        DataSource = DataSource1
        DataField = 'FARKILAC'
      end
      object QRDBText4: TQRDBText
        Left = 331
        Top = 21
        Width = 118
        Height = 17
        Alignment = taRightJustify
        AlignToBand = False
        DataSource = DataSource1
        DataField = 'TOPTUT'
      end
      object QRDBText5: TQRDBText
        Left = 467
        Top = 21
        Width = 38
        Height = 17
        Alignment = taRightJustify
        AlignToBand = False
        DataSource = DataSource1
        DataField = 'TOPMIK'
      end
      object QRDBText7: TQRDBText
        Left = 517
        Top = 21
        Width = 45
        Height = 17
        Alignment = taRightJustify
        AlignToBand = False
        DataSource = DataSource1
        DataField = 'ORTMIK'
      end
      object QRLabel3: TQRLabel
        Left = 11
        Top = 3
        Width = 24
        Height = 14
        Caption = 'S.No'
        AlignToBand = False
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object QRLabel2: TQRLabel
        Left = 44
        Top = 3
        Width = 58
        Height = 14
        Caption = 'Kurum Ad�'
        AlignToBand = False
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object QRLabel4: TQRLabel
        Left = 254
        Top = 3
        Width = 71
        Height = 14
        Caption = 'F.l� �la� Say�s�'
        AlignToBand = False
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object QRLabel5: TQRLabel
        Left = 334
        Top = 3
        Width = 99
        Height = 14
        Caption = 'Re�ete Br�t Tutar�'
        AlignToBand = False
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object QRLabel6: TQRLabel
        Left = 457
        Top = 3
        Width = 58
        Height = 14
        Caption = 'T.Kutu Mik'
        AlignToBand = False
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object QRLabel8: TQRLabel
        Left = 522
        Top = 3
        Width = 53
        Height = 14
        Caption = 'Ort.K.Mik.'
        AlignToBand = False
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object QRDBText2: TQRDBText
        Left = 44
        Top = 21
        Width = 203
        Height = 17
        AlignToBand = False
        DataSource = DataSource1
        DataField = 'KURUMKOD'
      end
      object QRShape2: TQRShape
        Left = 3
        Top = 19
        width = 700
        Height = 4
        Shape = qrsHorLine
      end
      object QRDBText22: TQRDBText
        Left = 586
        Top = 21
        Width = 45
        Height = 17
        Alignment = taRightJustify
        AlignToBand = False
        DataSource = DataSource1
        DataField = 'HSTSAY'
      end
      object QRLabel24: TQRLabel
        Left = 655
        Top = 3
        Width = 48
        Height = 14
        Caption = 'R�.Adedi'
        AlignToBand = False
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object QRDBText23: TQRDBText
        Left = 656
        Top = 21
        Width = 42
        Height = 17
        Alignment = taRightJustify
        AlignToBand = False
        DataSource = DataSource1
        DataField = 'RECSAY'
      end
    end
    object QRGroupHeader: TQRBand
      Left = 6
      Top = 83
      Width = 709
      Height = 16
      Align = alTop
      BandType = rbGroupHeader
      Color = clWhite
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = []
      ForceNewPage = False
      Frame.DrawTop = False
      Frame.DrawBottom = False
      Frame.DrawLeft = False
      Frame.DrawRight = False
      ParentFont = False
      Ruler = qrrCmHV
      object QRLabel9: TQRLabel
        Left = 126
        Top = 2
        Width = 39
        Height = 14
        Caption = '�la� Ad�'
        AlignToBand = False
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object QRLabel10: TQRLabel
        Left = 340
        Top = 2
        Width = 51
        Height = 14
        Caption = 'Kutu Mik.'
        AlignToBand = False
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object QRLabel11: TQRLabel
        Left = 428
        Top = 2
        Width = 58
        Height = 14
        Caption = 'Br�t Tutar�'
        AlignToBand = False
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object QRLabel12: TQRLabel
        Left = 86
        Top = 2
        Width = 24
        Height = 14
        Caption = 'S.No'
        AlignToBand = False
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object QRLabel13: TQRLabel
        Left = 520
        Top = 2
        Width = 68
        Height = 14
        Caption = 'Ort.Kutu Mik'
        AlignToBand = False
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = [fsBold]
        ParentFont = False
      end
    end
    object QRSubDetail: TQRBand
      Left = 6
      Top = 99
      Width = 709
      Height = 17
      Align = alTop
      BandType = rbSubDetail
      Color = clWhite
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = []
      ForceNewPage = False
      Frame.DrawTop = False
      Frame.DrawBottom = False
      Frame.DrawLeft = False
      Frame.DrawRight = False
      ParentFont = False
      Ruler = qrrCmH
      object QRSysData1: TQRSysData
        Left = 416
        Top = 1
        Width = 65
        Height = 17
        AlignToBand = False
        Data = qrsDateTime
        Text = 'D�k�m Tarihi :'
      end
      object QRDBText8: TQRDBText
        Left = 119
        Top = 1
        Width = 220
        Height = 17
        AlignToBand = False
        DataSource = DataSource2
        DataField = 'ILACNO'
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = []
        ParentFont = False
      end
      object QRDBText9: TQRDBText
        Left = 348
        Top = 1
        Width = 39
        Height = 17
        Alignment = taRightJustify
        AlignToBand = False
        DataSource = DataSource2
        DataField = 'TOPMIK'
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = []
        ParentFont = False
      end
      object QRDBText10: TQRDBText
        Left = 400
        Top = 1
        Width = 94
        Height = 17
        Alignment = taRightJustify
        AlignToBand = False
        DataSource = DataSource2
        DataField = 'TUTAR'
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = []
        ParentFont = False
      end
      object QRDBText11: TQRDBText
        Left = 79
        Top = 1
        Width = 33
        Height = 17
        Alignment = taRightJustify
        AlignToBand = False
        DataSource = DataSource2
        DataField = 'SNO'
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = []
        ParentFont = False
      end
      object QRDBText12: TQRDBText
        Left = 560
        Top = 1
        Width = 65
        Height = 17
        AlignToBand = False
        DataSource = DataSource2
        DataField = 'ORTMIK'
      end
    end
    object QRGroupFooter: TQRBand
      Left = 6
      Top = 116
      Width = 709
      Height = 17
      Align = alTop
      BandType = rbGroupFooter
      Color = clWhite
      ForceNewPage = False
      Frame.DrawTop = False
      Frame.DrawBottom = False
      Frame.DrawLeft = False
      Frame.DrawRight = False
      Ruler = qrrNone
    end
    object QRBand3: TQRBand
      Left = 6
      Top = 133
      Width = 709
      Height = 219
      Align = alTop
      BandType = rbSummary
      Color = clWhite
      ForceNewPage = False
      Frame.DrawTop = False
      Frame.DrawBottom = False
      Frame.DrawLeft = False
      Frame.DrawRight = False
      Ruler = qrrNone
      object QRShape6: TQRShape
        Left = 150
        Top = 18
        width = 323
        Height = 151
        Shape = qrsRectangle
      end
      object QRLabel14: TQRLabel
        Left = 176
        Top = 81
        Width = 139
        Height = 14
        Caption = 'Farkl� �la� Say�s� Toplam� :'
        AlignToBand = False
      end
      object QRLabel16: TQRLabel
        Left = 206
        Top = 122
        Width = 109
        Height = 14
        Caption = '�la�lar�n Br�t Tutar� :'
        AlignToBand = False
      end
      object QRLabel17: TQRLabel
        Left = 193
        Top = 19
        Width = 122
        Height = 14
        Caption = 'Toplam Kurum Say�s� :'
        AlignToBand = False
      end
      object QRLabel19: TQRLabel
        Left = 164
        Top = 101
        Width = 151
        Height = 14
        Caption = 'Toplam �la� Kutusu Miktar� :'
        AlignToBand = False
      end
      object QRDBText13: TQRDBText
        Left = 321
        Top = 19
        Width = 127
        Height = 17
        Alignment = taRightJustify
        AlignToBand = False
        DataSource = DataSTop
        DataField = 'KRMSAY'
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = []
        ParentFont = False
      end
      object QRDBText14: TQRDBText
        Left = 321
        Top = 81
        Width = 127
        Height = 17
        Alignment = taRightJustify
        AlignToBand = False
        DataSource = DataSTop
        DataField = 'FARKILAC'
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = []
        ParentFont = False
      end
      object QRDBText15: TQRDBText
        Left = 321
        Top = 101
        Width = 127
        Height = 17
        Alignment = taRightJustify
        AlignToBand = False
        DataSource = DataSTop
        DataField = 'TOPMIK'
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = []
        ParentFont = False
      end
      object QRDBText16: TQRDBText
        Left = 321
        Top = 122
        Width = 127
        Height = 17
        Alignment = taRightJustify
        AlignToBand = False
        DataSource = DataSTop
        DataField = 'TOPTUT'
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = []
        ParentFont = False
      end
      object QRDBText19: TQRDBText
        Left = 321
        Top = 139
        Width = 127
        Height = 17
        Alignment = taRightJustify
        AlignToBand = False
        DataSource = DataSTop
        DataField = 'ORTMIK'
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = []
        ParentFont = False
      end
      object QRLabel20: TQRLabel
        Left = 156
        Top = 139
        Width = 159
        Height = 14
        Caption = 'Ortalama �la� Kutusu Miktar� :'
        AlignToBand = False
      end
      object QRLabel23: TQRLabel
        Left = 256
        Top = 2
        Width = 148
        Height = 14
        Caption = 'TOPLAMLAR VE SONU�LAR'
        AlignToBand = False
      end
      object QRLabel25: TQRLabel
        Left = 193
        Top = 40
        Width = 115
        Height = 14
        Caption = 'Toplam Hasta Say�s� :'
        AlignToBand = False
      end
      object QRDBText24: TQRDBText
        Left = 321
        Top = 40
        Width = 127
        Height = 17
        Alignment = taRightJustify
        AlignToBand = False
        DataSource = DataSTop
        DataField = 'RECSAY'
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = []
        ParentFont = False
      end
      object QRLabel27: TQRLabel
        Left = 193
        Top = 60
        Width = 123
        Height = 14
        Caption = 'Toplam Re�ete Say�s� :'
        AlignToBand = False
      end
      object QRDBText26: TQRDBText
        Left = 321
        Top = 60
        Width = 127
        Height = 17
        Alignment = taRightJustify
        AlignToBand = False
        DataSource = DataSTop
        DataField = 'RECSAY'
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = []
        ParentFont = False
      end
    end
  end
  object PanelTAB: TPanel
    Left = 0
    Top = 39
    Width = 619
    Height = 373
    Color = clSilver
    TabOrder = 6
    object Label3: TLabel
      Left = 0
      Top = 298
      Width = 482
      Height = 14
      Alignment = taCenter
      AutoSize = False
      Caption = 'Genel Toplam'
      Color = clBlue
      Font.Color = clWhite
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentColor = False
      ParentFont = False
    end
    object Label1: TLabel
      Left = 0
      Top = 74
      Width = 483
      Height = 13
      Alignment = taCenter
      AutoSize = False
      Caption = 'Kurum Tablosu'
      Color = clRed
      Font.Color = clWhite
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentColor = False
      ParentFont = False
    end
    object Label4: TLabel
      Left = 2
      Top = 203
      Width = 480
      Height = 14
      Alignment = taCenter
      AutoSize = False
      Caption = 'Tabloda ��aretli Kurumun Ald��� �la�lar ve Detaylar�'
      Color = clNavy
      Font.Color = clWhite
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentColor = False
      ParentFont = False
    end
    object DBGrid1: TDBGrid
      Left = 0
      Top = 87
      Width = 485
      Height = 115
      DataSource = DataSource1
      TabOrder = 3
      TitleFont.Color = clBlack
      TitleFont.Height = -11
      TitleFont.Name = 'Arial'
      TitleFont.Style = [fsBold]
    end
    object BtnHSTARA: TBitBtn
      Left = 501
      Top = 95
      Width = 95
      Height = 25
      Caption = 'Kurum &Arama'
      Font.Color = clNavy
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 6
      OnClick = BtnHSTARAClick
    end
    object DBGrid3: TDBGrid
      Left = 0
      Top = 312
      Width = 608
      Height = 60
      DataSource = DataSTop
      TabOrder = 5
      TitleFont.Color = clBlack
      TitleFont.Height = -11
      TitleFont.Name = 'Arial'
      TitleFont.Style = [fsBold]
    end
    object DBGrid2: TDBGrid
      Left = 0
      Top = 217
      Width = 483
      Height = 80
      DataSource = DataSource2
      TabOrder = 4
      TitleFont.Color = clBlack
      TitleFont.Height = -11
      TitleFont.Name = 'Arial'
      TitleFont.Style = [fsBold]
    end
    object BitBtn3: TBitBtn
      Left = 501
      Top = 279
      Width = 95
      Height = 25
      TabOrder = 2
      Kind = bkClose
    end
    object BtnGRAFCIZ: TBitBtn
      Left = 541
      Top = 8
      Width = 73
      Height = 24
      Caption = '&Grafi�i �iz'
      Font.Color = clNavy
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 1
      OnClick = BtnGRAFCIZClick
    end
    object BtnTABYAZ: TBitBtn
      Left = 501
      Top = 131
      Width = 95
      Height = 25
      Caption = 'Tabloyu &Yazd�r'
      Font.Color = clNavy
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 7
      OnClick = BtnTABYAZClick
    end
    object RadioGrafik: TRadioGroup
      Left = 0
      Top = 1
      Width = 537
      Height = 71
      Caption = '�izilecek G&rafik'
      Columns = 2
      ItemIndex = 0
      Items.Strings = (
        'Kurum Ad� �la� Kutu Miktar� veTutar�'
        'Kurum �la�lar�n�n G�nl�k Tutar K.Miktar�'
        'Kurum �la�lar�n�n  Ayl�k Tutar ve Miktar'
        'Kurum �la�lar�n�n Y�ll�k Tutar K.Miktar�'
        '��aretli Kurumun �la� Ad� ve Miktar veTutar�'
        '��aretli Kurumun G�nl�k �la� Miktar� ve Tutar�'
        '��aretli Kurumun Ayl�k �la� Miktar� ve  Tutar�'
        '��aretli Kurumun Y�ll�k �la� Miktar� ve Tutar�')
      TabOrder = 0
    end
    object BitBtn2: TBitBtn
      Left = 541
      Top = 43
      Width = 73
      Height = 25
      HelpContext = 898
      Font.Color = clNavy
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 8
      Kind = bkHelp
    end
  end
  object BitBtn5: TBitBtn
    Left = 501
    Top = 318
    Width = 95
    Height = 25
    Font.Color = clNavy
    Font.Height = -11
    Font.Name = 'Arial'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 7
    Kind = bkClose
  end
  object QAna: TQuery
    BeforeOpen = QAnaBeforeOpen
    AfterClose = QAnaAfterClose
    OnCalcFields = QAnaCalcFields
    DatabaseName = 'ECZ'
    SQL.Strings = (
      'SELECT'
      'ISTATIKR.KURUMKOD,'
      'SUM(SATIS.MIKTAR) AS TOPMIK,'
      'SUM(SATIS.MIKTAR*SATIS.FIYAT) AS TOPTUT,'
      'AVG(SATIS.MIKTAR) AS ORTMIK,'
      'COUNT(DISTINCT SATISNO) AS RECSAY,'
      'COUNT(DISTINCT ISTATIKR.HASTANO) AS HSTSAY,'
      'COUNT(DISTINCT SATIS.ILACNO) AS FARKILAC'
      'FROM ISTATIKR,SATIS'
      'WHERE '
      'ISTATIKR.SATISNO=SATIS.SATISNO'
      'GROUP BY ISTATIKR.KURUMKOD'
      'ORDER BY TOPMIK DESC')
    Left = 16
    Top = 152
    object QAnaSNO: TIntegerField
      Calculated = True
      DisplayLabel = 'S.No'
      DisplayWidth = 4
      FieldName = 'SNO'
    end
    object QAnaKURUMKOD: TStringField
      DisplayLabel = 'Kurum Kodu'
      FieldName = 'KURUMKOD'
      OnGetText = QAnaKURUMKODGetText
      Size = 11
    end
    object QAnaRECSAY: TIntegerField
      DisplayLabel = 'R�.Adedi'
      DisplayWidth = 8
      FieldName = 'RECSAY'
    end
    object QAnaHSTSAY: TIntegerField
      DisplayLabel = 'Hst.Adedi'
      DisplayWidth = 8
      FieldName = 'HSTSAY'
    end
    object QAnaFARKILAC: TIntegerField
      DisplayLabel = 'T.F.�l�'
      DisplayWidth = 5
      FieldName = 'FARKILAC'
    end
    object QAnaTOPMIK: TFloatField
      DisplayLabel = 'T.Kutu'
      DisplayWidth = 6
      FieldName = 'TOPMIK'
    end
    object QAnaTOPTUT: TCurrencyField
      DisplayLabel = 'T.Br�tTutar�'
      DisplayWidth = 17
      FieldName = 'TOPTUT'
    end
    object QAnaORTMIK: TFloatField
      DisplayLabel = 'Ort.K.Mik'
      DisplayWidth = 7
      FieldName = 'ORTMIK'
      DisplayFormat = '#.#'
    end
  end
  object DataSource1: TDataSource
    DataSet = QAna
    Left = 45
    Top = 149
  end
  object QIlacAyr: TQuery
    BeforeOpen = QIlacAyrBeforeOpen
    BeforeClose = QIlacAyrBeforeClose
    OnCalcFields = QIlacAyrCalcFields
    DatabaseName = 'ECZ'
    DataSource = DataSource1
    Params.Data = {01000100084B5552554D4B4F440001020030000000}
    SQL.Strings = (
      'SELECT'
      'SATIS.ILACNO,'
      'SUM(SATIS.MIKTAR) AS TOPMIK,'
      'AVG(SATIS.MIKTAR) AS ORTMIK,'
      'SUM(SATIS.MIKTAR*SATIS.FIYAT) AS TUTAR'
      'FROM ISTATIKR,SATIS'
      'WHERE '
      'ISTATIKR.SATISNO=SATIS.SATISNO'
      'AND ISTATIKR.KURUMKOD=:KURUMKOD'
      'GROUP BY SATIS.ILACNO'
      'ORDER BY TOPMIK DESC')
    Left = 29
    Top = 233
    object QIlacAyrSNO: TIntegerField
      Calculated = True
      DisplayLabel = 'S.N.'
      DisplayWidth = 4
      FieldName = 'SNO'
    end
    object QIlacAyrILACNO: TIntegerField
      Alignment = taLeftJustify
      DisplayLabel = 'ila� Ad�'
      DisplayWidth = 36
      FieldName = 'ILACNO'
      OnGetText = QIlacAyrILACNOGetText
    end
    object QIlacAyrTOPMIK: TFloatField
      DisplayLabel = 'T.Mik'
      DisplayWidth = 6
      FieldName = 'TOPMIK'
    end
    object QIlacAyrTUTAR: TCurrencyField
      DisplayLabel = 'Br�t Tutar'
      DisplayWidth = 18
      FieldName = 'TUTAR'
    end
    object QIlacAyrORTMIK: TFloatField
      DisplayLabel = 'Ort.Mik'
      DisplayWidth = 6
      FieldName = 'ORTMIK'
      DisplayFormat = '#.#'
    end
  end
  object DataSource2: TDataSource
    DataSet = QIlacAyr
    Left = 70
    Top = 229
  end
  object QToplam: TQuery
    DatabaseName = 'ECZ'
    SQL.Strings = (
      'SELECT'
      'COUNT(DISTINCT ISTATIKR.KURUMKOD)  AS KRMSAY,'
      'COUNT(DISTINCT ISTATIKR.HASTANO)  AS HSTSAY,'
      'COUNT(DISTINCT SATISNO)  AS RECSAY,'
      'SUM(SATIS.MIKTAR) AS TOPMIK,'
      'SUM(SATIS.MIKTAR*SATIS.FIYAT) AS TOPTUT,'
      'AVG(SATIS.MIKTAR) AS ORTMIK,'
      'COUNT(DISTINCT SATIS.ILACNO) AS FARKILAC'
      'FROM ISTATIKR,SATIS'
      'WHERE '
      'ISTATIKR.SATISNO=SATIS.SATISNO')
    Left = 24
    Top = 275
    object QToplamKRMSAY: TIntegerField
      DisplayLabel = 'Krm.Say�s�'
      FieldName = 'KRMSAY'
    end
    object QToplamHSTSAY: TIntegerField
      DisplayLabel = 'T.Hst.Adedi'
      FieldName = 'HSTSAY'
    end
    object QToplamRECSAY: TIntegerField
      DisplayLabel = 'T.Re�.Adedi'
      FieldName = 'RECSAY'
    end
    object QToplamTOPMIK: TFloatField
      DisplayLabel = 'T.KutuMik.'
      DisplayWidth = 12
      FieldName = 'TOPMIK'
    end
    object QToplamTOPTUT: TCurrencyField
      DisplayLabel = 'Toplam Tutar'
      DisplayWidth = 23
      FieldName = 'TOPTUT'
    end
    object QToplamFARKILAC: TIntegerField
      DisplayLabel = 'T.Farkl� �l�.'
      DisplayWidth = 12
      FieldName = 'FARKILAC'
    end
    object QToplamORTMIK: TFloatField
      DisplayLabel = 'Ort.Kutu Mik'
      DisplayWidth = 10
      FieldName = 'ORTMIK'
      DisplayFormat = '#.#'
    end
  end
  object UrAd: TTable
    DatabaseName = 'ECZ'
    TableName = 'Urun.DB'
    Left = 17
    Top = 187
    object UrAdILACNO: TAutoIncField
      Alignment = taLeftJustify
      FieldName = 'ILACNO'
    end
    object UrAdILACKOD: TStringField
      FieldName = 'ILACKOD'
      Size = 13
    end
    object UrAdILACAD: TStringField
      FieldName = 'ILACAD'
      Size = 36
    end
  end
  object krmAd: TTable
    DatabaseName = 'ECZ'
    TableName = 'Krmlar.DB'
    Left = 137
    Top = 275
    object krmAdKOD: TStringField
      FieldName = 'KOD'
      Size = 11
    end
    object krmAdAD: TStringField
      FieldName = 'AD'
      Size = 36
    end
  end
  object DataSTop: TDataSource
    DataSet = QToplam
    Left = 64
    Top = 271
  end
  object QGunluk: TQuery
    DatabaseName = 'ECZ'
    SQL.Strings = (
      'SELECT'
      'ISTATIKR.ALTARIH,'
      'SUM(SATIS.MIKTAR) AS TOPMIK,'
      'SUM(SATIS.MIKTAR*SATIS.FIYAT) AS TOPTUT'
      'FROM ISTATIKR,SATIS'
      'WHERE '
      '(ISTATIKR.SATISNO=SATIS.SATISNO)'
      'GROUP BY ISTATIKR.ALTARIH'
      'ORDER BY TOPMIK DESC')
    Left = 461
    Top = 9
    object QGunlukALTARIH: TDateField
      FieldName = 'ALTARIH'
    end
    object QGunlukTOPMIK: TFloatField
      FieldName = 'TOPMIK'
    end
    object QGunlukTOPTUT: TCurrencyField
      FieldName = 'TOPTUT'
    end
  end
  object QIstaRec: TQuery
    DatabaseName = 'ECZ'
    Params.Data = {
      010002000662617354726800090400C11F0B00000106736F6E54726800090400
      9B220B000001}
    SQL.Strings = (
      'SELECT'
      'RECETE.HASTANO,'
      'RECETE.DRKOD,'
      'RECETE.SATISNO,'
      'RECETE.KURUMKOD,'
      'RECETE.ALTARIH,'
      'EXTRACT(DAY FROM RECETE.ALTARIH) AS GUN,'
      'EXTRACT(MONTH FROM RECETE.ALTARIH) AS AY,'
      'EXTRACT(YEAR FROM RECETE.ALTARIH) AS YIL,'
      'RECETE.NET'
      'FROM RECETE'
      'WHERE '
      '(RECETE.ALTARIH>=:basTrh) AND'
      '(RECETE.ALTARIH<=:sonTrh)'
      'ORDER BY RECETE.ALTARIH')
    Left = 152
    Top = 8
    object QIstaRecHASTANO: TIntegerField
      FieldName = 'HASTANO'
    end
    object QIstaRecDRKOD: TIntegerField
      FieldName = 'DRKOD'
    end
    object QIstaRecSATISNO: TFloatField
      FieldName = 'SATISNO'
    end
    object QIstaRecKURUMKOD: TStringField
      FieldName = 'KURUMKOD'
      Size = 11
    end
    object QIstaRecALTARIH: TDateField
      FieldName = 'ALTARIH'
    end
    object QIstaRecGUN: TFloatField
      FieldName = 'GUN'
    end
    object QIstaRecAY: TFloatField
      FieldName = 'AY'
    end
    object QIstaRecYIL: TFloatField
      FieldName = 'YIL'
    end
    object QIstaRecNET: TCurrencyField
      FieldName = 'NET'
    end
  end
  object BatchMove1: TBatchMove
    Destination = istRecTab
    Mode = batCopy
    Source = QIstaRec
    Left = 184
    Top = 8
  end
  object istRecTab: TTable
    DatabaseName = 'ECZ'
    TableName = 'istatikR.db'
    Left = 224
    Top = 8
  end
  object QAylik: TQuery
    DatabaseName = 'ECZ'
    SQL.Strings = (
      'SELECT'
      'ISTATIKR.YIL,ISTATIKR.AY,'
      'SUM(SATIS.MIKTAR) AS TOPMIK,'
      'SUM(SATIS.MIKTAR*FIYAT) AS TOPTUT'
      'FROM ISTATIKR,SATIS'
      'WHERE '
      '(SATIS.SATISNO=ISTATIKR.SATISNO)'
      'GROUP BY ISTATIKR.YIL,ISTATIKR.AY'
      'ORDER BY ISTATIKR.NETTUT DESC')
    Left = 357
    Top = 49
    object QAylikYIL: TFloatField
      FieldName = 'YIL'
    end
    object QAylikAY: TFloatField
      FieldName = 'AY'
    end
    object QAylikTOPMIK: TFloatField
      FieldName = 'TOPMIK'
    end
    object QAylikTOPTUT: TCurrencyField
      FieldName = 'TOPTUT'
    end
  end
  object QYillik: TQuery
    DatabaseName = 'ECZ'
    SQL.Strings = (
      'SELECT'
      'ISTATIKR.YIL,'
      'SUM(SATIS.MIKTAR) AS TOPMIK,'
      'SUM(SATIS.MIKTAR*FIYAT) AS TOPTUT'
      'FROM ISTATIKR,SATIS'
      'WHERE '
      '(SATIS.SATISNO=ISTATIKR.SATISNO)'
      'GROUP BY ISTATIKR.YIL'
      'ORDER BY ISTATIKR.TOPTUT DESC')
    Left = 381
    Top = 17
    object QYillikYIL: TFloatField
      FieldName = 'YIL'
    end
    object QYillikTOPMIK: TFloatField
      FieldName = 'TOPMIK'
    end
    object QYillikTOPTUT: TCurrencyField
      FieldName = 'TOPTUT'
    end
  end
  object QhstIMikAylik: TQuery
    DatabaseName = 'ECZ'
    DataSource = DataSource1
    Params.Data = {01000100084B5552554D4B4F4400000000}
    SQL.Strings = (
      'SELECT'
      'ISTATIKR.YIL,ISTATIKR.AY,'
      'SUM(SATIS.MIKTAR) AS TOPMIK,'
      'SUM(SATIS.MIKTAR*SATIS.FIYAT) AS TUTAR'
      'FROM ISTATIKR,SATIS'
      'WHERE '
      'ISTATIKR.SATISNO=SATIS.SATISNO'
      'AND ISTATIKR.KURUMKOD=:KURUMKOD'
      'GROUP BY ISTATIKR.YIL,ISTATIKR.AY'
      'ORDER BY TOPMIK DESC')
    Left = 501
    Top = 41
    object QhstIMikAylikYIL: TFloatField
      FieldName = 'YIL'
    end
    object QhstIMikAylikAY: TFloatField
      FieldName = 'AY'
    end
    object QhstIMikAylikTOPMIK: TFloatField
      FieldName = 'TOPMIK'
      DisplayFormat = '#.# A'
    end
    object QhstIMikAylikTUTAR: TCurrencyField
      FieldName = 'TUTAR'
    end
  end
  object PrintDialog1: TPrintDialog
    Left = 525
    Top = 65508
  end
  object QhstIMikYillik: TQuery
    DatabaseName = 'ECZ'
    DataSource = DataSource1
    Params.Data = {01000100084B5552554D4B4F4400000000}
    SQL.Strings = (
      'SELECT'
      'ISTATIKR.YIL,'
      'SUM(SATIS.MIKTAR) AS TOPMIK,'
      'SUM(SATIS.MIKTAR*SATIS.FIYAT) AS TUTAR'
      'FROM ISTATIKR,SATIS'
      'WHERE '
      'ISTATIKR.SATISNO=SATIS.SATISNO'
      'AND ISTATIKR.KURUMKOD=:KURUMKOD'
      'GROUP BY ISTATIKR.YIL'
      'ORDER BY TOPMIK DESC')
    Left = 445
    Top = 73
    object QhstIMikYillikYIL: TFloatField
      FieldName = 'YIL'
    end
    object QhstIMikYillikTOPMIK: TFloatField
      FieldName = 'TOPMIK'
    end
    object QhstIMikYillikTUTAR: TCurrencyField
      FieldName = 'TUTAR'
    end
  end
  object DS_QYillik: TDataSource
    DataSet = QYillik
    Left = 352
    Top = 16
  end
  object DS_QAylik: TDataSource
    DataSet = QAylik
    Left = 384
    Top = 48
  end
  object DataSource5: TDataSource
    DataSet = QGunluk
    Left = 496
    Top = 8
  end
  object DS_QhstIMikAylik: TDataSource
    DataSet = QhstIMikAylik
    Left = 544
    Top = 40
  end
  object DataSource7: TDataSource
    DataSet = QhstIMikYillik
    Left = 472
    Top = 72
  end
  object QuickReport1: TQuickReport
    DataSource = DataSource1
    ColumnMarginInches = 0
    ColumnMarginMM = 0
    Columns = 1
    DisplayPrintDialog = True
    LeftMarginInches = 0
    LeftMarginMM = 0
    Orientation = poPortrait
    PageFrame.DrawTop = False
    PageFrame.DrawBottom = False
    PageFrame.DrawLeft = False
    PageFrame.DrawRight = False
    PaperLength = 0
    PaperSize = qrpDefault
    PaperWidth = 0
    ReportTitle = 'KurumTablosu'
    RestartData = True
    SQLCompatible = False
    TitleBeforeHeader = False
    Left = 240
    Top = 136
  end
  object FontDialog1: TFontDialog
    Font.Color = clBlack
    Font.Height = -12
    Font.Name = 'Courier New'
    Font.Style = []
    Device = fdPrinter
    MinFontSize = 0
    MaxFontSize = 0
    Left = 453
    Top = 160
  end
  object QhstIMikGunluk: TQuery
    DatabaseName = 'ECZ'
    DataSource = DataSource1
    Params.Data = {01000100084B5552554D4B4F4400000000}
    SQL.Strings = (
      'SELECT'
      'ISTATIKR.ALTARIH,'
      'SUM(SATIS.MIKTAR) AS TOPMIK,'
      'SUM(SATIS.MIKTAR*SATIS.FIYAT) AS TUTAR'
      'FROM ISTATIKR,SATIS'
      'WHERE '
      'ISTATIKR.SATISNO=SATIS.SATISNO'
      'AND ISTATIKR.KURUMKOD=:KURUMKOD'
      'GROUP BY ISTATIKR.ALTARIH'
      'ORDER BY TOPMIK DESC')
    Left = 549
    Top = 57
    object QhstIMikGunlukALTARIH: TDateField
      FieldName = 'ALTARIH'
    end
    object QhstIMikGunlukTOPMIK: TFloatField
      FieldName = 'TOPMIK'
    end
    object QhstIMikGunlukTUTAR: TCurrencyField
      FieldName = 'TUTAR'
    end
  end
  object QRDetailLink1: TQRDetailLink
    DataSource = DataSource2
    DetailBand = QRSubDetail
    FooterBand = QRGroupFooter
    HeaderBand = QRGroupHeader
    Master = QuickReport1
    PrintBefore = False
    Left = 270
    Top = 136
  end
end